home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Games / talesdemo / rexx / Start_TCP_IP_AmiTCP.rexx < prev    next >
OS/2 REXX Batch file  |  2000-06-27  |  3KB  |  54 lines
  1. /******************************************************************************************************/
  2. /* Online-Script mit Arexx                                                                            */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*      First Bit set: 03.05.1998                                                                     */
  5. /*      Last Bit set :                                                                                */
  6. /*                                                                                                */
  7. /*                                                                                                    */
  8. /*      Version 1.01 : Wenn Port schon offen ist wird Script übersprungen                             */
  9. /*      Version 1.02 : Env-Var Deja wird angelegt                                      */
  10. /*      Version 1.03 : Library rexxsupport.library wird jetzt geladen                      */
  11. /*      Version 1.04 : Das Vorhanden sein des Stacks wird jetzt auch überprüft                  */
  12. /*                                                                                                    */
  13. /******************************************************************************************************/
  14.  
  15. OPTIONS RESULTS
  16. OPTIONS FAILAT 21
  17.  
  18. ADDRESS COMMAND
  19.     IF ~SHOW('L','rexxsupport.library') THEN    /* Library laden, damit            */
  20.         CALL ADDLIB('rexxsupport.library',0,-30,0)    /* Assign-Suche ohne Meldung        */
  21.  
  22.     IF ~SHOWLIST('A','AMITCP') THEN            /* Wenn kein TCPIP-Assign da ist    */
  23.       DO
  24.         'Setenv ToT:Data/TCPIPDeja -1'        /* direkt raus hier            */
  25.         EXIT
  26.       END
  27.  
  28.     IF ~EXISTS('AmiTCP:AmiTCP') THEN        /* Auf rexxsys verzichten        */
  29.       DO                        /* Üble Sache ! TCP-IP nicht korrekt installiert*/
  30.         'Setenv ToT:Data/TCPIPDeja -1'        /* es wurde wieder rumgefuscht         */ 
  31.         EXIT
  32.       END
  33.  
  34.     IF SHOW('P','AMITCP') THEN            /* TCPIP-Port da ?            */
  35.       'Setenv ToT:Data/TCPIPDeja 1'            /* Env-Var setzen            */
  36.     ELSE
  37.       'Setenv ToT:Data/TCPIPDeja 0'            /* keiner gestartet            */
  38.  
  39.     IF ~SHOW('P','AMITCP') THEN
  40.       DO
  41.         'run >NIL: AmiTCP:AmiTCP >NIL:'        /* Existiert TCPIP-Stack überhaupt dort ?*/
  42.         DO UNTIL SHOW('P','AMITCP')            /* Auf TCPIP-Stack warten warten    */
  43.           SIGNAL OFF ERROR                /* Fehler-Meldung solange auschalten    */
  44.           'WaitForPort AMITCP'            /* Isser nu da ?            */
  45.           SIGNAL ON ERROR                /* Fehler-Meldungen wieder ein        */
  46.         END                        
  47.       END
  48.     ENDIF
  49.         tcpipport = AMITCP                /* ist auf jeden Fall der aktive Port    */
  50.  
  51. ADDRESS (tcpipport)
  52.     HIDE
  53.     EXIT
  54.